unit Calendar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TfmCalendar = class(TForm)
    MonthCalendar: TMonthCalendar;
    OK: TButton;
  private
    { Private declarations }
    function GetDate: TDateTime;
    procedure SetDate(const Value: TDateTime);
  public
    { Public declarations }
    property Date: TDateTime read GetDate write SetDate;
  end;

var
  fmCalendar: TfmCalendar;

implementation

{$R *.DFM}

{ TfmCalendar }

function TfmCalendar.GetDate: TDateTime;
begin
  result := MonthCalendar.Date;
end;

procedure TfmCalendar.SetDate(const Value: TDateTime);
begin
  MonthCalendar.Date := Value;
end;

end.
